rm(list=ls(all=TRUE))
#
#
library(MASS)
library(foreign)
library(basicspace)
#
setwd("/Users/ssaiegh/Mac/Representation Gap/Paper PA")
#
data <- read.dta("brazil.dta")
attach(data,warn.conflicts = FALSE)
#
T <- cbind(self,dilma,serra,pt,pmdb,dem,ptb,psdb,pdt)
#
mode(T) <- "double"
colnames(T) <- c("SELF","DILMA","SERRA","PT","PMDB","DEM","PTB","PSDB","PDT")
#
#
result <-aldmck(T,polarity=2,respondent=1,missing=c(95,96,97,98,99),verbose=F)
#
